home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / float / cva_dptosp.a < prev    next >
Encoding:
Text File  |  1994-02-01  |  496 b   |  26 lines
  1.  
  2.         ;   CVA_DPTOSP.A
  3.         ;
  4.         ;   A0 = &arg    (4 bytes)
  5.         ;
  6.         ;   result in D0/D1
  7.         ;
  8.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  9.  
  10.         section text,code
  11.  
  12.         xref    _MathIeeeDoubTransBase
  13.  
  14.         xref    _LVOIEEEDPTieee ; MathIeeeDoubTransBase (ieee.doub->ieee.sing)
  15.         xdef    __cvdptosp_a
  16.  
  17. __cvdptosp_a    move.l    A6,-(sp)
  18.         move.l    _MathIeeeDoubTransBase(A4),A6
  19.         movem.l (A0),D0/D1          ; get ieee.double value
  20.         jsr    _LVOIEEEDPTieee(A6) ; convert ieee.doub->ieee.sing
  21.         move.l    (sp)+,A6
  22.         rts
  23.  
  24.         END
  25.  
  26.